use HTML::Element;

sub starttag($)
{
	my $node = shift;

  my %availattrs = ('cond' => 1, 'id' => 1, 'inherited' => 0);
  my @attrsnames = $node->all_external_attr_names();
  my $retval     = sprintf('<%s', $node->tag());
  
  foreach my $attrname ($node->all_external_attr_names())
  {
  	if(exists($availattrs{$attrname}))
  	{
  		if($availattrs{$attrname})
  		{
  			$retval.= sprintf(' %s=%s', $attrname, $node->attr($attrname));
  		}
  		else
  		{
  			$retval.= sprintf(' %s');		
  		};
  	};
  };
  
  $retval .= '>';
};

sub endtag($)
{
	my $node = shift;
};

